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CARDREADER SUBROUTINE FOR DISK EDITOR 


DECUS Program Library Write-up 


DECUS NO. 8-381 


PROGRAM DESCRIPTION 

The program allows for the use of a cardreader as input with the editor. The high speed 
reader is replaced by the cardreader. All other input and output equipment can be used 
without any changes. 

After every card a CR is produced to end the line. The read-in is terminated by a 
CTRL/FORM, when 40 cards have been read. By doing this the overflow of the textbuffer 
is avoided and there is room for possible changes. 

REQUIRED HARDWARE 

PD P-8/1 with 8 K core, ASR33, DF32 0 .RFO 8 o.TCOl u. TU55, CR 8 /l. 

REQUIRED PROGRAMS 

Disk monitor system, disk editor (DEC-D 8 -ESAB) 

STORAGE REQUIREMENTS 

214 0 locations in Field 1. Subroutine will be in Field 0 on input. 

MISCELLANEOUS 
Loading of the program 

Load the disk editor and the subroutine with the monitor loader and store the program as a 
systems programmer with the following command: "Save Name'. 0-3577;3200". When 
starting, the subroutine will be transferred to Field 1, so the complete textbuffer will be 
available. 

Cardreader code 


The cardreader code can be changed as required. 

The subroutine can also be written for a 4K machine. It will then remain in the textbuffer 
which consequently will have to be much smaller. 







CARDREADER SUBROUTINE FOR DISK-EDITOR 


.PALD 

*OUT-S:81 

* 

*IN-S:P4 

* 

*OPT-T 


SYMBOL TABLE 


ANFANG 

3212 

BEG 

1123 

BEGINN 

3214 

CNT 

3326 

COL 

33?0 

COLCNT 

3323 

CR 

3310 

CRD 

3317 

CRDCNT 

3324 

CRFLAG 

3325 

END 

3213 

ENDE 

3430 

FORM 

3235 

K214 

3321 

K215 

3322 

LOOP 

3201 

LTABLE 

3330 

M5 

3316 

RCRA 

6632 

RCRD 

6674 

RCSD 

6671 

RCSE 

6672 

RCSF 

6631 

RDATA 

3251 

RDCRD 

3245 

READ 

3327 

RETURN 

3306 

TABLE 

3331 


This program replaces the high speed reader of 
Editor with the Cardreader. It will be loaded 
Field 0 of the Editor. The starting address is 32,0,0. The 
Subroutine will then be transferred to Field 1 so that 
the complete textbuffer will be retained. After the 
transferring the Editor will automatically start. 

All other input and output routines remain the same. 

The read-in of every card is ended with a CR to close 
out the line. After 40 cards the read-in will be stopped 
automatically with a CTRL/FORM, so as not to overload 
the textbuffer. 


the Disk 
into 


If the Cardreader is not turned on, when the read command 
is given, it will automatically go back to Command- 
Mode. 


An error during read-in 
at address 13300. The 
read again. 


of a card will stop the machine 
last read card will have to be 
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/CARDREADER SUBROUTINE FOR EDITOR 
/REQUIREMENTS: 8K CORE STORAGE 
/HIGH SPEED READER REPLACED BY CARDREADER 

/ 

RCSF=6631 

RCRA=6632 

RCSD=6671 

RCSE=6672 

RCRD=6674 

/ 

/ 


1117 

0000 

*1117 

0 

1120 

6213 


6213 

1121 

4723 


JMS 1 BEG 

1122 

5717 


JMP 1 .-3 

1123 

3214 

BEG, 

BEGINN 

3200 

7200 

/ 

/ 

*3200 

CLA 

320 ] 

1612 

LOOP, 

TAD 1 ANFANG 

3202 

6211 


6211 

3203 

3612 


DCA 1 ANFANG 

3204 

6201 


6201 

3205 

2212 


ISZ ANFANG 

3206 

2213 


ISZ END 

3207 

520 ] 


JMP LOOP 

3210 

5611 


JMP 1 .1 

3211 

2600 


2600 

3212 

3214 

ANFANG, 

BEGINN 

3213 

7563 

END, 

BEGINN-ENDE-1 

3214 

0000 

/ 

/ 

BEGINN, 

0 

3215 

7200 


CLA 

3216 

2323 


ISZ COLCNT 

3217 

5251 


JMP RDATA 

3220 

2325 


ISZ CRFLAG 

3221 

5310 


JMP CR 

3222 

3326 


DCA CNT 

3223 

6671 


RCSD 

3224 

7410 


SKP 

3225 

5230 


JMP .+3 

3226 

2326 


ISZ CNT 

3227 

5223 


JMP .-4 

3230 

6674 


RCRD 

3231 

6632 


RCRA 

3232 

7200 


CLA 


/HIGH SPEED READER ROUTINE REPLACEMENT 
/STORAGE FIELD 1 
/CARDREADER ROUTINE 


/NEW START 

/GET 1 WORD FROM FIELD 0 
/CHANGE DATAFIELD IN 1 
/STORE IN FIELD 1 
/CHANGE DATAFIELD IN jef 
/INDEX COUNTER 
/EVERYTHING TRANSFERRED? 
/NO, TRANSFER NEXT WORD 
/YES 

/GO TO START OF EDITOR 


/LAST SYMBOL? 

/NO, READ NEXT SYMBOL 
/YES, LINE CLOSED? 

/NO, CLOSE LINE 

/YES, SET COUNTER 

/SKIP ON CARD DONE FLAG 

/CARD DONE FLAG SET 
/WAIT 40 MSEC FOR 
/CARD DONE FLAG 
/CLEAR CARD DONE FLAG 
/CLEAR DATA READY FLAG 
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3233 

2324 


ISZ 

CRDCNT 

3234 

5245 


JMP 

RDCRD 

3235 

1317 

FORM, 

TAD 

CRD 

3236 

3324 


DCA 

CRDCNT 

3237 

7240 


CLA 

CMA 

3240 

3323 


DCA 

COLCNT 

3241 

724/ 


CLA 

CMA 

3242 

3325 


DCA 

CRFLAG 

3243 

1321 


TAD 

K214 

3244 

53/6 


JMP 

RETURN 

3245 

1320 

RDCRD, 

TAD 

COL 

3246 

3323 


DCA 

COLCNT 

3247 

6672 


RCSE 


3250 

5235 


JMP 

FORM 

3251 

1316 

RDATA, 

TAD 

M5 

3252 

3326 


DCA 

CNT 

3253 

3327 

/ 

DCA 

READ 



/. 



3254 

6631 


RCSF 


3255 

741/ 


SKP 


3256 

5264 


JMP 

.+6 

3257 

2327 


ISZ 

READ 

3260 

5254 


JMP 

.-4 

3261 

2326 


ISZ 

CNT 

3262 

5254 


JMP 

.-6 

3263 

5235 


JMP 

FORM 

3264 

6632 


RCRA 


3265 

3327 


DCA 

READ 

3266 

132/ 


TAD 

COL 

3267 

3326 


DCA 

CNT 

327,0 

2326 


ISZ 

CNT 

3271 

527/ 


JMP 

.-1 

3272 

6632 


RCRA 


3273 

7/41 


CIA 


3274 

132/ 


TAD 

READ 

3275 

764/ 


SZA 

CLA 

3276 

741/ 


SKP 


3277 

53/2 


JMP 

.+3 

3300 

74/2 


HLT 


3301 

5235 


JMP 

FORM 

3302 

1327 


TAD 

READ 

3303 

133/ 


TAD 

LTABLE 

3304 

3327 


DCA 

READ 

3305 

1727 


TAD 1 

READ 

3306 

6?03 

RETURN, 

62/3 


3307 

5614 


JMP 1 

BEGINN 

3310 

7240 

CR, 

CLA 

CMA 


/ENOUGH CARDS READ? 

/NO, READ NEXT CARD 
/YES, END READ-IN 
/SET CARD COUNTER BACK 

/SET COLUMN COUNTER TO -1 

/SET LINE END FLAG 
/FORMFEED, BACK TO 
/COMMAND MODE 

/SET COLUMN COUNTER BACK 

/SELECT CARD READER, SKIP IF READY 

/NOT READY 

/READ A SYMBOL 

/SET COUNTER FOR 

/WAIT LOOP 


/SKIP ON DATA READY FLAG 

/FLAG SET 

/WAIT 200 MSEC FOR 
/DATA READY FLAG 

/DATA READY FLAG DID NOT OCCUR 

/READ ALPHANUMERIC 

/STORE AB 

/SET COUNTER FOR 

/WAIT LOOP 

/WAIT 360 MICROSEC 

/READ AGAIN 

/AND 

/COMPARE 

/READ CORRECTLY? 


/NO 

/YES 

/LOOK UP 
/IN TABLE 
/FOR ASCII CODE 
/TRANSFER TO FIELD 0 
/GO BACK 



i 
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3311 

3323 


DCA 

COLCNT 

3312 

7240 


CLA 

CMA 

3313 

3325 


DCA 

CRFLAG 

3314 

1322 


TAD 

K215 

3315 

5306 


JMP 

RETURN 

3316 

7773 

M5, 

-5 


3317 

7727 

CRD, 

-51 


33?0 

7660 

COL, 

-120 


3321 

0214 

K214, 

214 


3322 

0215 

K215, 

215 


3323 

7777 

COLCNT, 

-1 


3324 

7727 

CRDCNT, 

-51 


3325 

7777 

CRFLAG, 

-1 


3326 

0000 

CNT, 

0 


3327 

0000 

READ, 

0 


3330 

3331 

LTABLE, 

TABLE 




/ 





/TABLE FOR 

ASCII CODE 

3331 

0240 

TABLE, 

240 


3332 

0261 


261 


3333 

0262 


262 


3334 

0263 


263 


3335 

0264 


264 


3336 

0265 


265 


3337 

0266 


266 


3340 

0267 


267 


3341 

0270 


270 


3342 

0271 


271 


3343 

0240 


240 


3344 

0275 


275 


3345 

0300 


300 


3346 

0336 


336 


3347 

0247 


247 


3350 

0334 


334 


3351 

0260 


260 


3352 

0257 


257 




/ 





/ 



3353 

0323 


323 


3354 

0324 


324 


3355 

0325 


325 


3356 

0326 


326 


3357 

0327 


327 


3360 

0330 


330 


3361 

0331 


331 


3362 

0332 


332 



/SET COLUMN COUNTER TO -1 

/ERASE END OF LINE FLAG 
/END OF LINE 


/SPACE (REPLACE NOT LEGAL SYMBOL) 

A 
/2 
/3 
/4 
/5 
/ 6 
/7 
/8 
/9 

/SPACE : 

/= H 

/ @ 

/ T ' 

/' 

A " 

/* 

// 


/s 

A 

/u 

/v 

/w 

/X 

/Y 

/Z 


5 



3363 

0273 

273 

/; 

blank 

3364 

0254 

254 

/, 


3365 

0250 

250 

/( 

% 

3366 

0242 

242 

/" 

blank 

3367 

0243 

243 

/" 

> 

337,0 

0245 

245 

/% 

? 

3371 

0255 

255 

A 


3372 

0312 

312 

/J 


3373 

0313 

313 

/K 


3374 

0314 

314 

A 


3375 

0315 

315 

/M 


3376 

0316 

316 

/N 


3377 

0317 

317 

/o 


3400 

0320 

320 

/P 


34011 

0321 

321 

/Q 


3402 

0322 

322 

/R 


3403 

0241 

241 

/• 


3404 

0244 

244 

/$ 


3405 

0252 

252 

/* 


3406 

0333 

333 

/ C 

) 

3407 

0276 

276 

/> 

/ 

3410 

0246 

246 

/& 

1 

3411 

0253 

253 

A 

2 

3412 

0301 

301 

/A 


3413 

0302 

302 

/B 


3414 

0303 

303 

/c 


3415 

0304 

304 

/D 


3416 

0305 

305 

/E 


3417 

0306 

306 

/F 


3420 

0307 

307 

/G 


3421 

0310 

310 

/H 


3422 

0311 

311 

/I 


3423 

0277 

277 

/? 

4 

3424 

0256 

256 

/. 


3425 

0251 

251 

/) 

< 

3426 

0335 

335 

/ 3 

( 

3427 

0274 

274 

/< 

+ 

3-130 

02/2 ENDE, 

272 

/: 

1 



